; Music of Hate (1989) (Vortex Software) (Ben Daglish)
; Ripped by Megachur the 04/11/2006

	write "HATE.BIN"

music_date_rip	equ &04b6
music_adr	equ &4500
first_theme	equ 0
last_theme	equ 0

	read "music_header_v1_0.asm"

;4500
	jp l4590	; init
	jp l4618	; play
.l4506
.music_end
	db #00
	jp l4511	; init sound effects
;
.stop_music
;
	xor a
	ld (l4506),a
	jp l499a
.l4511
	di
	ld l,a
	ld e,a
	ld h,#00
	ld d,h
	add hl,hl
	add hl,de
	add hl,hl
	add hl,hl
	add hl,de
	ld iy,l4f6a
	ex de,hl
	add iy,de
	ld l,(iy+#0a)
	ld h,(iy+#0b)
	ld c,(iy+#0c)
	ld ix,l48dc
	call l4913
	set 7,(ix+#11)
	ei
	ret
.l4540 equ $ + 7
.l453a equ $ + 1
.l4539
	db #00,#00,#00,#00,#00,#00,#00,#00
.l4548 equ $ + 7
.l4546 equ $ + 5
.l4545 equ $ + 4
.l4544 equ $ + 3
.l4543 equ $ + 2
.l4542 equ $ + 1
	db #00,#00,#00,#00,#00,#00,#00,#00
.l454f equ $ + 6
.l454e equ $ + 5
	db #00,#00,#00,#00,#00,#08,#00,#00
.l4558 equ $ + 7
.l4557 equ $ + 6
.l4555 equ $ + 4
	db #00,#00,#00,#00,#00,#00,#00,#00
.l455d equ $ + 4
.l455b equ $ + 2
.l455a equ $ + 1
.l4559
	db #00,#00,#00,#00,#00,#00,#00,#00
.l4564 equ $ + 3
.l4563 equ $ + 2
	db #00,#00,#10,#00,#00,#00,#00,#00
.l4570 equ $ + 7
.l456f equ $ + 6
.l456e equ $ + 5
.l456d equ $ + 4
.l456c equ $ + 3
.l456a equ $ + 1
	db #00,#00,#00,#00,#00,#00,#00,#00
.l4578 equ $ + 7
.l4572 equ $ + 1
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00
;
.init_music
.l4590
;
	push af
	call l499a
	pop af
	ld l,a
	add a
	add l
	add a
	ld hl,l4e6b
	add l
	ld l,a
	jr nc,l45a1
	inc h
.l45a1
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (l453a),de
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (l454f),de
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (l4564),de
	xor a
	ld (l4543),a
	ld (l4558),a
	ld (l456d),a
	ld (l4548),a
	ld (l455d),a
	ld (l4572),a
	cpl
	ld (l4544),a
	ld (l4559),a
	ld (l456e),a
	ld a,#01
	ld (l4542),a
	ld (l4557),a
	ld (l456c),a
	ld (l4545),a
	ld (l455a),a
	ld (l456f),a
	ld hl,l4578
	ld bc,#030a
.l45f0
	xor a
.l45f1
	ld (hl),a
	inc hl
	add c
	ld (hl),a
	inc hl
	add c
	cp #50
	jr nz,l45f1
	djnz l45f0
	ld hl,l4ee8
	ld (l4540),hl
	ld (l4555),hl
	ld (l456a),hl
	ld a,#ff
	ld (l4546),a
	ld (l455b),a
	ld (l4570),a
	ld (l4506),a
	ret
;
.play_music
.l4618
;
	call l49db
	ld a,(l4506)
	and a
	ret z
	ld a,(l4546)
	ld hl,l455b
	or (hl)
	ld hl,l4570
	or (hl)
	ld (l4506),a
	jr nz,l4642
	xor a
	ld (l4506),a
	ld a,(l48db)
	and #3f
	cp #3f
	ret z
	ld a,#01
	ld (l4506),a
	ret
.l4642
	ld iy,l4539
	ld ix,l48dc
	call l4660
	ld iy,l454e
	ld ix,l48ee
	call l4660
	ld iy,l4563
	ld ix,l4900
.l4660
	call l47a1
	ld a,(iy+#0b)
	and a
	jr z,l46e5
.l4669
	dec (iy+#09)
	jr z,l4680
	ld a,(iy+#03)
	ld (iy+#05),a
	ld a,(iy+#04)
	ld (iy+#06),a
	ld (iy+#0b),#00
	jr l46e5
.l4680
	ld (iy+#09),#01
	ld l,(iy+#01)
	ld h,(iy+#02)
.l468a
	ld a,(hl)
	cp #80
	jr c,l46c5
	cp #fe
	jr nz,l469c
	inc hl
	ld a,(hl)
	ld (iy+#0a),a
	inc hl
	jp l468a
.l469c
	cp #ff
	jr nz,l46a5
	xor a
	ld (iy+#0d),a
	ret
.l46a5
	cp #c0
	jr nc,l46b2
	and #1f
	ld (iy+#09),a
	inc hl
	jp l468a
.l46b2
	and #07
	add (iy+#00)
	ld de,l4578
	add e
	ld e,a
	jr nc,l46bf
	inc d
.l46bf
	inc hl
	ldi
	jp l468a
.l46c5
	ld (iy+#0b),#00
	inc hl
	ld (iy+#01),l
	ld (iy+#02),h
	ld c,a
	ld b,#00
	ld hl,l4e49
	add hl,bc
	ld e,(hl)
	ld hl,l4e5a
	add hl,bc
	ld d,(hl)
	ld (iy+#03),e
	ld (iy+#04),d
	jr l46eb
.l46e5
	ld e,(iy+#05)
	ld d,(iy+#06)
.l46eb
	dec (iy+#0c)
	jr z,l46fd
	ld a,(de)
	cp #80
	call nc,l4767
	ld (iy+#05),e
	ld (iy+#06),d
	ret
.l46fd
	ld a,(de)
	cp #80
	jr c,l470e
	call l4767
	ld a,(iy+#0b)
	and a
	jr z,l46fd
	jp l4669
.l470e
	cp #7f
	jr z,l475a
	cp #7e
	jr nz,l471f
	inc de
	ld a,(de)
	ld l,a
	inc de
	ld a,(de)
	ld h,a
	jp l4733
.l471f
	add (iy+#0a)
	add #0c
	ld (iy+#0e),a
	ld hl,l4831
	add a
	ld c,a
	ld b,#00
	add hl,bc
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
.l4733
	ld a,(iy+#0f)
	or #c0
	ld (iy+#14),a
	inc de
	ld a,(de)
	inc de
	ld (iy+#0c),a
	ld c,a
	ld (iy+#05),e
	ld (iy+#06),d
	ld e,(iy+#07)
	ld a,(iy+#08)
	ld hy,a
	ld ly,e
	bit 7,(ix+#11)
	ret nz
	jp l4913
.l475a
	inc de
	ld a,(de)
	inc de
	ld (iy+#0c),a
	ld (iy+#05),e
	ld (iy+#06),d
	ret
.l4767
	ld a,(de)
	cp #88
	jr nc,l4785
	and #07
	add (iy+#00)
	ld c,a
	ld b,#00
	ld hl,l4578
	add hl,bc
	ld c,(hl)
	ld hl,l4ee8
	add hl,bc
	ld (iy+#07),l
	ld (iy+#08),h
	inc de
	ret
.l4785
	cp #ff
	jr nz,l478e
	ld (iy+#0b),#ff
	ret
.l478e
	cp #c0
	jr nc,l4799
	and #0f
	ld (iy+#0f),a
	inc de
	ret
.l4799
	inc de
	cp #c2
	ret z
	inc de
	inc de
	inc de
	ret
.l47a1
	bit 7,(ix+#11)
	ret nz
	ld a,(iy+#14)
	bit 7,a
	ret z
	and #3f
	jr nz,l47b5
	res 7,(iy+#14)
	ret
.l47b5
	ld d,#07
	bit 6,(iy+#14)
	jr nz,l47e9
	dec (iy+#12)
	ret nz
	dec (iy+#13)
	jp z,l47e9
	ld l,(iy+#10)
	ld h,(iy+#11)
	inc l
	ld (iy+#10),l
	jp nz,l47d8
	inc h
	ld (iy+#11),h
.l47d8
	ld a,(hl)
	and d
	ld (iy+#12),a
	ld a,(hl)
	rrca
	rrca
	rrca
	and #1f
	add (iy+#0e)
	jp l481e
.l47e9
	ld hl,l483a
	ld a,(iy+#14)
	add a
	add a
	add a
	ld e,a
	add hl,de
	bit 7,(hl)
	jr nz,l4803
	bit 6,(iy+#14)
	jr nz,l4803
	ld (iy+#13),#01
	ret
.l4803
	res 6,(iy+#14)
	ld a,(hl)
	rrca
	rrca
	rrca
	and d
	ld (iy+#12),a
	ld a,(hl)
	and d
	inc a
	ld (iy+#13),a
	ld (iy+#10),l
	ld (iy+#11),h
	ld a,(iy+#0e)
.l481e
	add a
	ld hl,l4831
	add l
	ld l,a
	jr nc,l4827
	inc h
.l4827
	ld a,(hl)
	ld (ix+#03),a
	inc hl
	ld a,(hl)
	ld (ix+#04),a
	ret
.l4831
	xor #0e
	jr l4843

	dw #0d4d,#0c8e
.l483a	equ $+1
	dw #0bda
	dw #0b2f,#0a8f,#09f7,#0968
.l4843
	dw #08e1,#0861,#07e9,#0777
	dw #070c,#06a7,#0647,#05ed
	dw #0598,#0547,#04fc,#04d4
	dw #0470,#0431,#03f4,#03dc
	dw #0386,#0353,#0324,#02f6
	dw #02cc,#02a4,#027e,#025a
	dw #0238,#0218,#01fa,#01de
	dw #01c3,#01aa,#0192,#017b
	dw #0166,#0152,#013f,#012d
	dw #011c,#010c,#00fd,#00ef
	dw #00e1,#00d5,#00c9,#00be
	dw #00b3,#00a9,#009f,#0096
	dw #008e,#0086,#007f,#0077
	dw #0071,#006a,#0064,#005f
	dw #0059,#0054,#0050,#004b
	dw #0047,#0043,#003f,#003c
	dw #0038,#0035,#0032,#002f
	dw #002d,#002a,#0028,#0026
	dw #0024,#0022,#0020,#0018
.l48db
	db #3f
.l48e1 equ $ + 5
.l48e0 equ $ + 4
.l48df equ $ + 3
.l48dc
	db #fe,#f7,#09,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l48f3 equ $ + 7
.l48f2 equ $ + 6
.l48f1 equ $ + 5
.l48ee equ $ + 2
.l48ed equ $ + 1
	db #00,#00,#fd,#ef,#12,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l4903 equ $ + 7
.l4900 equ $ + 4
.l48ff equ $ + 3
	db #00,#00,#00,#00,#fb,#df,#24,#00
.l4905 equ $ + 1
.l4904
	db #00,#00,#00,#00,#00,#00,#00,#00
.l4912 equ $ + 6
.l4911 equ $ + 5
	db #00,#00,#00,#00,#00,#00,#00
.l4913
	di
	ld a,ly
	ld (ix+#0f),a
	ld a,hy
	ld (ix+#10),a
	ld (ix+#03),l
	ld (ix+#04),h
	ld (ix+#06),c
	ld a,(iy+#05)
	ld (ix+#07),a
	ld a,(iy+#06)
	and #7f
	srl a
	jr nz,l4938
	ld a,#01
.l4938
	ld (ix+#08),a
	ld a,(iy+#07)
	ld (ix+#0b),a
	ld a,(iy+#08)
	ld (ix+#0c),a
	xor a
	ld (ix+#09),a
	ld (ix+#0a),a
	ld a,(l48db)
	or (ix+#02)
	ld c,(iy+#09)
	ld (ix+#11),c
	bit 0,c
	jr z,l4961
	and (ix+#00)
.l4961
	bit 1,c
	jr z,l4968
	and (ix+#01)
.l4968
	ld (l48db),a
	bit 2,c
	jr nz,l497a
	ld hl,l4ac9
	ld (ix+#0d),l
	ld (ix+#0e),h
	ei
	ret
.l497a
	call l4b81
	ld a,(iy+#00)
	ld c,#0d
	call l4b98
	ld a,(iy+#04)
	ld c,#0b
	call l4b98
	inc c
	xor a
	call l4b98
	ld (ix+#05),#ff
	ei
	jp l4b8d
.l499a
	call l4b81
	ld c,#07
	ld a,(l48db)
	or #3f
	ld (l48db),a
	call l4b98
	xor a
	inc c
	call l4b98
	inc c
	call l4b98
	inc c
	call l4b98
	ld a,#01
	inc c
	call l4b98
	inc c
	xor a
	call l4b98
	inc c
	call l4b98
	ld (l48ed),a
	ld (l48ff),a
	ld (l4911),a
	ld (l48e1),a
	ld (l48f3),a
	ld (l4905),a
	jp l4b8d
.l49db
	ld a,(l48db)
	and #3f
	cp #3f
	ret z
	ld ix,l48dc
	call l4a97
	ld ix,l48ee
	call l4a97
	ld ix,l4900
	call l4a97
	call l4b81
	ld ix,l48dc
	ld c,#07
	ld a,(l48db)
	call l4b98
	ld c,#00
	ld a,(l48df)
	add (ix+#09)
	bit 1,(ix+#11)
	jp z,l4a19
	ld (l4912),a
.l4a19
	call l4b98
	inc c
	ld a,(l48e0)
	adc (ix+#0a)
	call l4b98
	inc c
	ld a,(l48f1)
	add (ix+#1b)
	bit 1,(ix+#23)
	jp z,l4a37
	ld (l4912),a
.l4a37
	call l4b98
	inc c
	ld a,(l48f2)
	adc (ix+#1c)
	call l4b98
	inc c
	ld a,(l4903)
	add (ix+#2d)
	bit 1,(ix+#35)
	jp z,l4a55
	ld (l4912),a
.l4a55
	call l4b98
	inc c
	ld a,(l4904)
	adc (ix+#2e)
	call l4b98
	inc c
	ld a,(l4912)
	rrca
	rrca
	rrca
	call l4b98
	ld c,#08
	ld a,(l48e1)
	srl a
	srl a
	srl a
	call l4b98
	inc c
	ld a,(l48f3)
	srl a
	srl a
	srl a
	call l4b98
	inc c
	ld a,(l4905)
	srl a
	srl a
	srl a
	call l4b98
	jp l4b8d
.l4a97
	ld a,(l48db)
	and (ix+#02)
	cp (ix+#02)
	ret z
	ld a,(ix+#0f)
	ld ly,a
	ld a,(ix+#10)
	ld hy,a
	ld a,(ix+#06)
	and a
	jr z,l4ab8
	cp #ff
	jr z,l4ab8
	dec (ix+#06)
.l4ab8
	call l4b3f
	bit 2,(iy+#09)
	jp nz,l4b38
	ld l,(ix+#0d)
	ld h,(ix+#0e)
	jp (hl)
.l4ac9
	ld a,(ix+#05)
	add (iy+#00)
	cp (iy+#04)
	jr nc,l4ad8
	ld (ix+#05),a
	ret
.l4ad8
	ld a,(iy+#04)
	ld (ix+#05),a
	ld hl,l4ae8
	ld (ix+#0d),l
	ld (ix+#0e),h
	ret
.l4ae8
	ld a,(ix+#05)
	add (iy+#01)
	jp m,l4afa
	cp (iy+#02)
	jr c,l4afa
	ld (ix+#05),a
	ret
.l4afa
	ld a,(iy+#02)
	ld (ix+#05),a
	ld hl,l4b0a
	ld (ix+#0d),l
	ld (ix+#0e),h
	ret
.l4b0a
	ld a,(ix+#06)
	and a
	ret nz
	ld hl,l4b19
	ld (ix+#0d),l
	ld (ix+#0e),h
	ret
.l4b19
	ld a,(ix+#05)
	add (iy+#03)
	jp m,l4b26
	ld (ix+#05),a
	ret
.l4b26
	ld (ix+#05),#00
	ld a,(l48db)
	or (ix+#02)
	ld (l48db),a
	res 7,(ix+#11)
	ret
.l4b38
	ld a,(ix+#06)
	and a
	ret nz
	jr l4b26
.l4b3f
	ld a,(ix+#07)
	and a
	jr z,l4b4c
	cp #ff
	ret z
	dec (ix+#07)
	ret nz
.l4b4c
	ld l,(ix+#09)
	ld h,(ix+#0a)
	ld c,(ix+#0b)
	ld b,(ix+#0c)
	add hl,bc
	ld (ix+#09),l
	ld (ix+#0a),h
	dec (ix+#08)
	ret nz
	ld a,(iy+#06)
	and a
	ret z
	jp p,l4b70
	ld (ix+#07),#ff
	ret
.l4b70
	ld (ix+#08),a
	ld a,c
	cpl
	ld c,a
	ld a,b
	cpl
	ld b,a
	inc bc
	ld (ix+#0b),c
	ld (ix+#0c),b
	ret
.l4b81
	ld bc,#f782
	out (c),c
	ld de,#c000
	ld hl,#f680
	ret
.l4b8d
	ld bc,#f40e
	out (c),c
	ld b,h
	out (c),d
	out (c),e
	ret
.l4b98
	ld b,#f4
	out (c),c
	ld b,h
	out (c),d
	out (c),e
	ld b,#f4
	out (c),a
	ld b,h
	out (c),l
	out (c),e
	ret
	ld a,#00			; test player ;-)
	call init_music	;l4590
.l4bb0
	di
	ld bc,#f500
.l4bb4
	in a,(c)
	and #01
	jr z,l4bb4
	ld b,#00
.l4bbc
	djnz l4bbc
.l4bbe
	djnz l4bbe
.l4bc0
	djnz l4bc0
.l4bc2
	djnz l4bc2
	ld bc,#7f10
	out (c),c
	ld a,#40
	out (c),a
	call play_music	;l4618
	ld bc,#7f10
	out (c),c
	ld a,#54
	out (c),a
	jr l4bb0
	.l4bdb
	db #81,#12,#0a,#12,#0a,#82,#2a
	db #0a,#81,#12,#0a,#15,#0f,#0e,#05
	db #82,#2a,#14,#81,#10,#0a,#10,#0a
	db #82,#2a,#0a,#81,#10,#0a,#0b,#0f
	db #0f,#05,#82,#2a,#0a,#81,#10,#0a
	.l4c03 equ $ + 1
	db #ff,#90,#80,#7e,#0e,#00,#a0,#ff
.l4c0a
	db #83,#36,#05,#36,#05,#36,#05,#36
.l4c14 equ $ + 2
	db #05,#ff,#81,#10,#0a,#10,#0a,#82
	db #2a,#0a,#81,#0f,#14,#10,#0a,#82
.l4c28 equ $ + 6
	db #2a,#0a,#80,#11,#0a,#ff,#86,#91
	db #28,#0a,#28,#0a,#28,#0a,#92,#27
	db #0a,#27,#0a,#91,#28,#0a,#28,#0a
.l4c3f equ $ + 5
	db #92,#29,#0a,#90,#ff,#84,#1e,#05
	db #1e,#05,#1e,#05,#1e,#05,#17,#0a
	db #17,#05,#17,#05,#14,#05,#14,#05
	db #14,#0a,#0f,#05,#0f,#05,#0f,#05
.l4c5d equ $ + 3
	db #0f,#05,#ff,#86,#25,#32,#23,#05
	db #21,#05,#23,#05,#21,#05,#23,#05
	db #25,#05,#23,#28,#25,#05,#23,#05
	db #21,#05,#23,#05,#21,#05,#20,#05
	db #1e,#05,#1c,#05,#1e,#32,#1c,#05
	db #17,#05,#1a,#05,#1c,#05,#1e,#05
	db #21,#05,#20,#28,#21,#05,#20,#05
	db #1e,#05,#1c,#05,#1b,#05,#1c,#05
.l4c9f equ $ + 5
	db #1e,#05,#21,#05,#ff,#86,#93,#21
	db #0a,#21,#14,#91,#21,#14,#21,#14
	db #93,#1e,#14,#1e,#14,#1e,#0a,#92
	db #20,#14,#20,#14,#91,#1f,#0a,#1f
	db #14,#21,#14,#21,#14,#93,#1e,#14
	db #1e,#14,#1e,#0a,#20,#14,#20,#14
.l4ccc equ $ + 2
	db #94,#ff,#81,#0e,#0a,#0d,#0a,#82
	db #1e,#0a,#81,#09,#14,#08,#0a,#82
	db #1e,#0a,#81,#09,#0a,#0b,#14,#82
	db #1e,#0a,#81,#08,#0a,#0b,#0a,#10
	db #0a,#82,#1e,#0a,#2a,#0a,#81,#07
	db #0a,#13,#0a,#82,#1e,#0a,#81,#09
	db #14,#09,#0a,#82,#1e,#0a,#81,#0b
	db #14,#0b,#0a,#82,#1e,#0a,#81,#0d
	db #14,#0d,#0a,#82,#1e,#0a,#1e,#05
.l4d15 equ $ + 3
	db #1e,#05,#ff,#81,#12,#0a,#15,#0a
	db #19,#0a,#17,#1e,#82,#1e,#28,#1e
	db #28,#1e,#14,#81,#12,#0a,#15,#0a
	db #19,#0a,#17,#14,#15,#0a,#14,#0a
	db #10,#14,#12,#0a,#14,#0a,#15,#14
.l4d41 equ $ + 7
	db #17,#0a,#14,#0a,#10,#0a,#ff,#83
	db #36,#05,#36,#05,#36,#05,#36,#05
	db #82,#1e,#05,#83,#36,#05,#36,#05
.l4d55 equ $ + 3
	db #36,#05,#ff,#85,#95,#1e,#0a,#1e
	db #0a,#1e,#0a,#93,#1e,#0a,#1e,#0a
	db #1e,#0a,#1e,#0a,#1e,#0a,#1e,#0a
	db #1e,#0a,#1e,#0a,#1e,#0a,#1e,#0a
	db #1e,#0a,#1e,#0a,#1e,#0a,#95,#1e
	db #0a,#1e,#0a,#1e,#0a,#93,#1e,#0a
	db #1e,#0a,#1e,#0a,#1e,#0a,#92,#20
	db #0a,#20,#0a,#20,#0a,#20,#0a,#1e
	db #0a,#1e,#0a,#1e,#0a,#91,#1c,#0a
.l4d9d equ $ + 3
	db #1c,#0a,#ff,#85,#93,#1e,#0a,#1e
.l4da5 equ $ + 3
	db #0a,#90,#ff,#86,#90,#31,#14,#31
	db #14,#31,#14,#31,#14,#34,#05,#33
	db #05,#31,#05,#2f,#05,#2d,#05,#2f
	db #05,#2d,#05,#2c,#05,#2d,#05,#2c
	db #05,#2a,#05,#28,#05,#27,#05,#28
	db #05,#2a,#05,#31,#05,#2f,#05,#31
	db #05,#34,#05,#2f,#05,#31,#05,#34
	db #05,#2f,#05,#31,#05,#34,#05,#2f
	db #05,#31,#05,#34,#05,#36,#05,#34
	db #05,#2f,#05,#31,#05,#2a,#28,#28
	db #05,#2c,#05,#2f,#05,#31,#05,#34
	db #05,#36,#05,#2f,#05,#2c,#05,#2a
	db #14,#2a,#14,#2a,#14,#2a,#14,#36
	db #05,#34,#05,#31,#05,#36,#05,#34
	db #05,#31,#05,#36,#05,#34,#05,#31
	db #05,#36,#05,#34,#05,#31,#05,#39
	db #05,#36,#05,#34,#05,#2f,#05,#31
	db #28,#31,#28,#2f,#0a,#2c,#0a,#2d
	db #0a,#28,#0a,#2d,#05,#2f,#05,#30
	db #05,#31,#05,#32,#05,#33,#05,#34
.l4e48 equ $ + 6
.l4e47 equ $ + 5
.l4e46 equ $ + 4
	db #05,#36,#05,#ff,#ff,#ff,#ff

.l4e49
	db l4bdb,l4c03,l4c0a,l4c14
	db l4c28,l4c3f,l4c5d,l4c9f
	db l4ccc,l4d15,l4d41,l4d55
	db l4d9d,l4da5,l4e46,l4e47
	db l4e48
;	db #db,#03,#0a,#14,#28,#3f,#5d,#9f
;	db #cc,#15,#41,#55,#9d,#a5,#46,#47
;	db #48
.l4e5a
	db l4bdb/&100,l4c03/&100,l4c0a/&100,l4c14/&100
	db l4c28/&100,l4c3f/&100,l4c5d/&100,l4c9f/&100
	db l4ccc/&100,l4d15/&100,l4d41/&100,l4d55/&100
	db l4d9d/&100,l4da5/&100,l4e46/&100,l4e47/&100
	db l4e48/&100
;	db #4b,#4c,#4c,#4c,#4c,#4c,#4c,#4c
;	db #4c,#4d,#4d,#4d,#4d,#4d,#4e,#4e
;	db #4e
.l4e6b
	dw l4e71,l4e98,l4ebc
.l4e71
	db #fe,#fb
	db #87,#00,#03,#84,#00,#fe,#07,#08
	db #fe,#fb,#84,#00,#fe,#07,#08,#fe
	db #fb,#84,#00,#09,#09,#fe,#07,#90
	db #0c,#fe,#fb,#84,#00,#fe,#fd,#84
	db #00,#fe,#09,#08,#ff
.l4e98
	db #87,#01,#fe
	db #07,#04,#06,#fe,#13,#06,#fe,#07
	db #07,#06,#06,#07,#84,#01,#0b,#0b
	db #c0,#46,#01,#01,#c0,#00,#84,#01
	db #c6,#50,#fe,#09,#0d,#c6,#3c,#07
	db #ff
.l4ebc
	db #98,#02,#98,#02,#88,#02,#05
	db #90,#02,#90,#02,#90,#02,#90,#02
	db #90,#02,#90,#02,#90,#02,#90,#02
	db #0a,#86,#02,#85,#0a,#86,#02,#8a
	db #0a,#05,#90,#02,#90,#02,#90,#02
	db #90,#02,#90,#02,#ff
.l4ee8
	db #08,#ff,#01,#ff,#39,#00,#00,#01
	db #00,#05,#7f,#fe,#01,#ff,#7f,#00
	db #05,#04,#00,#01,#7f,#fc,#01,#ff
	db #64,#00,#00,#3c,#00,#03,#7f,#f7
	db #01,#ff,#55,#00,#00,#00,#00,#02
	db #7f,#fb,#01,#ff,#7f,#00,#00,#3c
	db #00,#01,#7f,#fb,#01,#ff,#64,#00
	db #04,#01,#00,#01,#28,#ff,#5a,#ff
	db #7f,#1b,#05,#03,#00,#01,#08,#ff
	db #01,#ff,#55,#00,#00,#01,#00,#05
	db #08,#ff,#5a,#ff,#01,#1b,#05,#03
	db #00,#05,#8a,#21,#39,#00,#00,#00
	db #00,#00,#8a,#19,#41,#00,#00,#00
	db #00,#00,#8a,#29,#49,#00,#00,#00
	db #00,#00,#89,#61,#00,#00,#00,#00
	db #00,#00,#8a,#19,#39,#00,#00,#00
	db #00,#00
.l4f6a
	db #7f,#fd,#01,#ff,#7f,#00,#01,#2e
	db #00,#01,#5f,#00,#14,#7f,#ff,#01
	db #ff,#7f,#00,#01,#2e,#00,#02,#5f
	db #00,#50,#7f,#fc,#01,#ff,#7f,#00
	db #01,#2e,#00,#02,#5f,#00,#14,#08
	db #ff,#01,#ff,#64,#ff,#00,#00,#00
	db #05,#11,#02,#fa,#7f,#fb,#01,#ff
	db #7f,#00,#00,#11,#00,#03,#41,#00
	db #0a,#08,#ff,#01,#ff,#7f,#00,#00
	db #04,#00,#05,#0b,#00,#4a,#08,#ff
	db #01,#ff,#03,#00,#08,#04,#00,#05
	db #3d,#00,#4e,#7f,#f9,#01,#ff,#7f
	db #00,#03,#01,#00,#01,#5b,#00,#05
	db #00,#00
;

.game_name
	db "Hate",0
.game_year
	db "1989",0
.game_publisher
	db "Vortex Software",0
.music_author
	db "Ben Daglish",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
